home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8148 < prev    next >
Text File  |  1993-10-08  |  1KB  |  112 lines
  1. %%BeginFile: adobe_psp_customps
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /$t Z
  4. /$p Z
  5. /$s Z
  6. /$o 1. def
  7. /2state? false def
  8. /ps Z
  9. level2 startnoload
  10. /pushcolor/currentrgbcolor ld
  11. /popcolor/setrgbcolor ld
  12. /setcmykcolor where
  13. {
  14. pop/currentcmykcolor where
  15. {
  16. pop/pushcolor/currentcmykcolor ld
  17. /popcolor/setcmykcolor ld
  18. }if
  19. }if
  20. level2 endnoload level2 not startnoload
  21. /pushcolor
  22. {
  23. currentcolorspace $c eq
  24. {
  25. currentcolor currentcolorspace true
  26. }{
  27. currentcmykcolor false
  28. }ifelse
  29. }bd
  30. /popcolor
  31. {
  32. {
  33. setcolorspace setcolor
  34. }{
  35. setcmykcolor
  36. }ifelse
  37. }bd
  38. level2 not endnoload
  39. /pushstatic
  40. {
  41. ps
  42. 2state?
  43. $o
  44. $t
  45. $p
  46. $s
  47. }bd
  48. /popstatic
  49. {
  50. /$s xs
  51. /$p xs
  52. /$t xs
  53. /$o xs
  54. /2state? xs
  55. /ps xs
  56. }bd
  57. /pushgstate
  58. {
  59. save errordict/nocurrentpoint{pop 0 0}put
  60. currentpoint
  61. 3 -1 roll restore
  62. pushcolor
  63. currentlinewidth
  64. currentlinecap
  65. currentlinejoin
  66. currentdash exch aload length
  67. np clippath pathbbox
  68. $m currentmatrix aload pop
  69. }bd
  70. /popgstate
  71. {
  72. $m astore setmatrix
  73. 2 index sub exch
  74. 3 index sub exch
  75. rC
  76. array astore exch setdash
  77. setlinejoin
  78. setlinecap
  79. lw
  80. popcolor
  81. np :M
  82. }bd
  83. /bu
  84. {
  85. pushgstate
  86. gR
  87. pushgstate
  88. 2state?
  89. {
  90. gR
  91. pushgstate
  92. }if
  93. pushstatic
  94. pm restore
  95. mT concat
  96. }bd
  97. /bn
  98. {
  99. /pm save store
  100. popstatic
  101. popgstate
  102. gS
  103. popgstate
  104. 2state?
  105. {
  106. gS
  107. popgstate
  108. }if
  109. }bd
  110. /cpat{pop 64 div G 8{pop}repeat}bd
  111. %%EndFile
  112.